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17815 --- ACTUATOR SPEED ADJUST P/N=1635251 EC=755285 PAGE 01 L7815--=+ ACTUATOR SPEED ADJUST P/N= 1635251 EC=755285 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT ITEM COPP 1976 
3 COPY 1LOG7815 ** MAP EC HISTORY ** 002500 25EA 201 A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
4 RII IRI RR IIR IGOR RK Soke ake ak te ir ike ie ak QOD HAH KH KEK KEK KHER AEE EEE ERE EERE EEE EE EE EEK ERE EEE EE KH OS 
5 * x 2.03 30k III II III ICIIOI III IOI IOI IOI II IO IRI III IOI RO BO OK i eK 
6 * * ee PREREQUISITES % * 204 ** * * 
7 * * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPEPVISOR (D3C00) % & 
8 * NONE * 206 ** TO LOCATE THE CORRECT ROLE TO INVOKE, TO OBTAIN THE PPOPER ** 
9 * * 207 ** PARAMETERS TO PASS TO THE TU'S AND T6 PASS TO THE OPERATOR * & 
10 OR ROI I 2g io IRI aq IRR iO dati to ig tak kk ak ke tk k 208 ** THE INDICATED MESSAGE(S). THERE ARE FOUP TAELES USED FOF THIS *% 
1 * x 209 ** PURPOSE THEY ARE: ae 
12 * et MODIFICATIONS * x * 210 ** ** 
13 * * 211 ** STEP AND RULE ADDRESS TABLE * x 
14 * CHANGES MADE TO MEET PROGFAM REQUIREMENTS * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND He 
15 * * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ** 
16 RO toi kook oko ao loko doi gi ioc ki iioiok dak take ie ak ake ke a a ae keke ak eae kek eae ic ie kk ak 214 ** ENTRIES ARE AS FOLLOWES x 
17 * * 215 ** A AN ADDRESS OF THE RULE DC STAFPT APFEA * * 
18 * ak REA'S INCORPORATED ES * 216 ** B THE STEP NUMBER IN DECIMAL ** 
19 * * 217 ** C AN EQUATE FOR THE STEP NUMBEP alg 
20 * NOWE * 218 ** * & 
21 * * 219 ** RULE INFOPMATION TABLE ** 
22 OR I IIR RII I FRI fo FR Ck kia ke ak fe ake ke kek a 2c 220 ** THIS TABLE CONTAINES THE PEQUIRED INFORMATION TO EXECUTE *% 
23 * * 221 ** THE APPPOPPIATE RULE UNDER MDI. EACH RULE HAS ITS OWN %% 
24u x aK SPECIAL INSTRUCTIONS KK * 222 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS _* 
25 * * 223 ** INDICATED WITH A X'0000' FOR THE FULE EQUATE. *% 
26 * NONE * 224 ** ** 
27 * * 225 ** SQUES **% 
28 oko OK IO OI RR rg dk ok kkk kk ok ok ke tok ie kok 226 ¥* A) RULE EQUATE X'0100° *x 
29 * * 227] ** B) ADDRESS OF THE YES LEG RULE x 
30 * «ex E. C. HISTORY KX * 228 ** ** 
31 * * 229 ** SFIXT ** 
32 * DATE 17DEC76 DATE 18JAN77 DATE OUMAR7T7 DATE 10JUN77 * 230 ** y RULE EQUATE X'0101'° * 
aa : E.C. 578486 E.C. 57857 E.C. 578638 E.C. 578625 : nee it B) ADDRESS OF MESSAGE TO PRINT bee 
35 * DATE OIMAR78 DATE DATE DATE * 233 ** SSTOP ** 
36 * E.C. 755285 E.G. Ce Cs * 234 ** A) RULE EQUATE X'0102' ** 
37 * * 235 =* B) ADDRESS OF MESSAGE xx 
38 OR RC OO Oa rok i Rk ait tok tok kok $k kok kok tk 236 ** tok 
002500 4O 17815 START X'2500! START ADDRESS OF ALL 'I' TYPE PROG 237 ** S$GOTO ** 
000100 41 @QUES EQU X¥*0100! EQUATED VALUE FOP MDI STATEMENT 238: ** . A) RULE EQUATE X*"0200! ** 
000101 42 @FIXT EQU X'0101! EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDRESS OF MESSAGE *x* 
000102 43 @STOP FQU X¥'0102' FQUATED VALUE FOR MDI STATEMENT 240 ** C) NAME OF MAP TO GO TO ** 
000200 44 @GOTO EQU X*0200! EQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTRY POINT WITHIN GO TO MAP TO USE ** 
000201 45 acaALL EQU X'0201' EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FOR EXTEFPNAL OR INTERNAL REFERENCE ** 
000300 46 @DINPT EQU X¥'0300' EQUATED VALUE FOR MDI STATEMENT 244 ** ** 
000400 47 a@QUXxX EQU X*O4Q00! EQUATED VALUE FOR MDI STATEMENT 245 ** SCALL * * 
000500 48 @TUXX EQU X*'0500! EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE x'0O201! * x 
000600 49 A@NVLD EQU X'0600! EQUATED VALUE FOR MDI STATEMENT 247 ** B) ADDPESS OF MESSAGE *x 
000000 50 EQ EOU X*Q000! EQUATE FOR EQUAL 248 ** C) NAME OF MAP TO CALL * x 
000004 51 NE EQU X'0004! EQUATE FOR NOT EQUAL 249 ** D) ENTRY POINT WITHIN CALLED MAP TO USE ** 
000008 52 HI EQU X*'0008! EQUATE FOR HIGH 250 ** E) INDICATOR FOR EXTERNAL OP INTERNAL REFEPENCE ** 
00000C 53 NH EQOU X'O00C! EQUATE FOR NOT HIGH 251 = ** 
000010 54 LO EQU X¥'0010! EQUATE FOR LOW 252 ** SINPT *k 
000014 55 NL EQU X¥'0014! EQUATE FOR NOT LOW 253 ** A) RULE EQUATE X'!0300! ** 
000010 56 LT EQU X'00108 EQUATE FOR LESS THAN 254 ** B) INPUT TYPE (EBCDIC OR HEX) * x 
| 00009C 57..-LE EOU X'000C! EQUATE FOR LESS THAN OR EJUAL TO | 255 ** C) ADDRESS OF YES LEG RULE ** 
000008 58 GT EQU X'0008' EQUATE FOR GREATEP THAN 256 ** D) DESTINATION LOCATION OF INPUT DATA ** 
000014 59 GE EQU X'00174! EQUATE FOR GREATER THAN OF EQUAL TO 257 ** E) LENGTH OF INPUT DATA * * 
000200 60 ON EQU X'0200° EQUATE FOR ON 258 ** F) LOWER LIMIT OF GOOD DATA xx 
000202 61 OF EQU X'0202! EQUATE FOR OFF 259 ** G) FIGHER LIMIT OF GOOD DATA ** 
000204 62 MX EQU X*Q204' ee FOR MIXED 260 ** * x 
000000 63 EBC EQU X*0000!° EQUATE FOR FBCDIC DATA TRANSFEP 261 ** SOQUXX eK 
000001 64 HEX EQU X'0001' EQUATE FOR HEX DATA TRANSFER 262 ** A) PULE EQUATE X*t0O4OO0! x 
900001 65 XTRNL EQU xX'0001' EQUATE FOR EXTERNAL REFERENCE 263 ** B) ADDPESS OF YES LEG RULE * 
900000 66 INTRNL EOQU X'Q000! EQUATE FOR INTERNAL PEFERENCE 264 ** C) TU BRANCH TO ADDRESS (INITIAL * x 
000000 67 FARM EQU X'Q0000! EQUATE INDICATING PARAMETER 265 ** D) TU PRANCH TO ADDRESS (SECONDARY) ** 
000001 68 DA EQU X'0001! EQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER IN BYTES ** 
000002 69 UA EQU X'0002'! EQUATE FOR UNIT ADDRESS 267 ** F) PAFAMETER TO PASS TO TU * 
000000 70 DUMMY EQU X¥'0000! DUMMY EQUATE 268 ** G) STORE ADDFESS FOR FIRST 8 WOPDS OF PARAMETER ** 
001800 72 FID EQU *-X'ODO ADDRESS OF MDI HEADER 269 ** * 
000232 73 PYYPE EQU *-X"'22C ADDRESS OF FROCESSOR TYPE FIELD 270 ** STUXX aK 
00180C 74 STEPNUM EQU PID+X'OOOC! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULF EQUATE X'0500! ** 
O00180E 75 OPWD1 EQU PID+X'QOOE! ADDRESS OF OPTION WORD ONE 272 ** B) ADDPESS OF YES LFG RULE x 
001810 76 OPWD2 EQU PID+X*0010! ADDRESS OF OPTION WORD TWO 273 ** C) TO BRANCH TO ADDPESS x 
001818 77 TUSTATUS EQU PID+x'0O0O18! ADDRESS OF TU STATUS WORD 274 ** D) TYPE OF COMPARE TO MAKE ON RESULTS had 
00181A 78 TUWORK FOU PID+X'OO1A' ADDRESS OF TU WORK AREA 215% E) LENGTH OF COMPARED RESULTS ** 
00189A 79 TUPARM1 £EQU PID+X*OO9A! ADDRESS OF PARM 1 POINTER 276 ** F) MASK FIELD FOR COMPARE ala 
00189C 80 TUPARM2 FEQU PID+X*OO9C! ADDRESS OF PARM 2 POINTER 277 ** G) LENGTH OF PARAMETER IN BYTES * x 
O0189E 81 TUPARM3 EQU PID+X'OO9E! ADDRESS OF PARM 3 POINTEP 278 ** H) PARAMETER TO PASS TO THE TU *k 
Q0018A0 82 TUPAPM4Y EQU PID+X'OOAO! ADDRESS OF PAFM 4 POINTER 279 ** T) STOPE ADDRESS FOR FIRST 8 WOFDS OF PAFPAMETEPR ** 
0018A2 83 TUPARMS EQU PID+X*OOA2! ADDRESS OF PAFM 5 POINTER 280 ** x 
0018A4 84 TUPAFM6 FOU PID+X'OOA4t ADDRESS OF PARM 6 POTNTER 281 ** SNVLD * x 
0018A6 85 TUPARM7T EQU PID+X'QOA6* ADDRESS OF PARM 7 POINTER 282 ** ) FULE EQUATE xX'0600! ek 
0018A8 86 TUPARM8 EQU PID+X'OOAS8! ADDRESS OF PARM 8 POINTER 284 ** xx 
OO18AA 87 TUPARM9 EQU PID+X'OOAA' ADDRESS OF PAPM 9 POINTER 285 ** ENTPY POINT TABLE * x 
OO18AC 88 TUPAFM10 EQU PID+X"OOAC'! ADDRESS OF PARM 10 POINTER 286 ** LoLS BLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT ** 
OO18AE 89 TUPARM11 EQU PID+X"OOAE! ADDRESS OF PARM 11 POINTER 287 ** THE CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018 B0 90 TUPARM12 EQU PTD+X'OOBO! ADDRESS OF PA®M 12 POINTER 288 ** REFEPENCED BY NAME AND ADDRESS. ENTRIES AFE AS FOLLOWFS: ** 
001882 91 TUPARM13 EQU PID+X'OO0OB2" ADDRESS OF PARM 13 POINTER 289 ** * x 
OO18B4 92 TUPARM14 EQU PID+xX"OOB4! ADDRESS OF PARM 14 POINTER 290 ** A) NAME OF ENTRY POINT x 
0018 B6 93 TUPAPM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 291 ** B) ADDRESS OF ENTFY POINT FULE TABLE ** 
0018B8 94 TUPAPM16 EQU FID4+xX*OOB8! ADDRESS OF PARM 16 POINTER 292 ** ** 
OO18BA 95 TUMSGWTR EQU PID+X*OOBA'* ADDRESS OF -> T) COMMON MSG WRITER 293 ** THE ENTRY POINT TAELE END IS INDICATED BY A xX*t0O000! *x 
0018 BE 96 TOUA EOU PID+X'OOBE! ADDPESS OF UNIT ADDPESS IN EBC 294 ** ** 
0018C0 97 TUDA EQU PID+xX*QOCO! ADDRESS OF DEVICE ADDPFESS IN EBC 295 ** MESSAGE TABLE *k 
0018C2 98 TUBUFF EQU PTD4+xX"00C2!' ADDRESS OF LAST USED WORD IN MAP 29H ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ** 
0018C4 99 TULAST EQU PID+xX'OOC4! ADDPESS OF LAST ADDRESSABLE WOFD 297 ** VIA THE MDI SUPERVISOP. THE TABLE IS AS FOLLOWES: ** 
0018C56 100 TURESULN ECU PID+xX'OOC6! ADDRESS OF LENGTH OF TU RESULTS 293 ** * x 
0018C8 101 TURESUL EQU PID+xX'OOC8! ADDRESS OF TU RESULTS FIELD 299 ** 4) EQUATE FOR START OF MESSAGE BLOCK * 
0018FC 102 MAPNAME EQU PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 300 ** B) NUMBEP OF LINES OF MESSAGE ** 
001948 103 TOINPT EQU PID+X!'O148! ADDRESS OF SINPT DATA 301 ** C) LENGTH OF FOLLOWING LINE *x 
00196E 104 PARMARA ECU PID+X'Q16E! ADDRESS OF SINPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE ** 
001988 105 @DCADDI EQU PTD+X'O1B8'! MDI POINTER 303 ** F) LENGTH OF FOLLOWING LINE ** 
OO19BA 106 aDCADD2 EQU PID+X'O1BA* MDI POINTER 304 ** F) SECOND LINE OF MESSAGE *x 
0019C4 107 SUPSTAT EQU PID+X'O1C4! ADDRESS OF MDI STATUS 305 ** G) ETC. * x 
0019D0 108 DEVADD EQU PID+X'O1DO! ADDPESS OF DEVICE ADDPESS TABLE O 306 ** kK 
OO19DA 109 DEVADD1 EOU PID+xX'O At ADDRFSS OF DEVICE ADD®ESS TABIF 1 JOT eR HR HR He He he 2 a ae Re ie He eR i Re ee Re a a a a ae fe 2 a i oe ee i oe a i i cK i oi ok ie oo ek 
OO019FS 110 DEVADD2 EQU PID+X'O1EU! ADDRESS OF DFVICE ADDRESS TABLE 2 308 2 RR ORR RIOR RII ROR OI ka ii a fea kk ak aka ai ak oe 
OO019EF 111 DEVADD3 EQU DID+X'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 
O019F8 112 DEVADD& EQU PID+X'O1F8! ADDRESS OF DEVICE ADDPESS TABLE 4 
001A02 113 DEVADD5 £EQU PTD4+X'0202' ADDRESS OF DEVICE ADDRESS TABLE 5 
OOTAOC 114 DEVADD6 EQU PIN+x'O20C! ADDFPESS IF DEVICE ADDRESS TABLF 6 
001A16 ie DEVADD7 : Ua Ppa 6! ADDRESS OF DEVICE ADDRESS TARLE 7 
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COPYRIGHT IBM COPP 1976 


EIG1S- 22 ACTUATOP SPEED ADJUST 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT 


P/N=1635251 EC=755285 PAGE 03 LIES == ACTUATOR SPEED ADJUST 
COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOUPCE STATEMENT 


QNO0273A 539 FOQ0157 EQU * B57 7K RH KK KK KK KK KK KKK Kk KK kK KK KK KK KK KK KKK KK 
00273A 0003 540 DC AL2 (0003) €58 * * 
00273c 002Cc Su DC A (0044) £59 * EQUATED NAMES FOR SUPPORTED SVC!IS * 
09273R CSDSEZE4UD9C540C9D 542 DC CLOOUG*ENSURE INTEGRITY OF 4962 DISK BY RUNNING THE! 660 * * 
OO276A 002Cc 543 DC A (0044) 661 Se PSPS PPS SSESESSPSPSESESSSSL SESS SSSSESSSSSSESSESSSSSSSSSLSSSSSSSSLS SS SSS SSS SSS Ss 
OO276FC FH4FOFEF2ZUODUCIDTE C44 DC CLOOG4U*4962 MAPS --- DCP WILL AUTOMATICALLY RETURN ! 000000 662 OUT EQU 0 OUT SVC 
002798 000C 545 DC A (0012) 000001 663 OUTIN EQU 1 OUTIN SVC 
00279A E3ZD64O0D4CIDTI4OFTF 546 DC CLOO12"*TO MAP 7809.! 000002 664 IDLE EQU 2 IDLE SVC 
0027A6 547 FO00163 EQU * 000003 665 ASCII ECU 3 HEX TO ASCII SVC 
0027A6 0003 548 DC AU? (0003) 000004 666 CHNGE EQU 4 CHANGE LEVEL SVC 
002748 OO2A Eu9 DC a (0 42) 000005 667 PGMCK EQU 5 ALLOW RETURN ON PROGPAM CHECK SVC 
OO27AA D5SCSE64UOCHUC5SYUODYE 550 DC CLOOU2"*NEW DE MUST BE INITIALIZED TO GSD FORMAT. ! 0000056 668 EXIT EQU 6 EXIT SVC 
O0O27D4 OO2A 551 pc A (0042) 000007 669 TERM EQU 7 TERMINATE SVC 
0027D6 D3D6CIC4LOCIDS5C4Y 552 DC CLOO42"LOAD AND EXECUTE THE 4962 DISK INITIALIZE ! 000008 670 RESET EQU 8 RESFT DEVICE svc 
002800 0010 553 pc A (0016) 000009 671 RID EOU 9 READ ID SVC 
002802 D7DID6C7TDICID4YOY 554 DC CLOO16"*PROGRAM (78FO). ! OOOOOA 672 STAPT EOU 10 STAPT CYCLE STEAL SVC 
555 HDIT OOB2 O00000B 673 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
002812 0000 557+OPTN1 DC x'oooor PROGRAM OPTION CONTROL WORD 1 00000Cc 674 PREP EOU 12 PREPAPE DEVICE SVC 
55 8+* 00000D 675 READO EOU 13 READ WITH FUNCTION BIT 3 OFF SVC 
002814 0000 559+OPTN2 DC x'O000' PROGRAM OPTION CONTPOL WOPD 2 OOO00E 676 READ1 Eu 14 READ WITH FUNCTION BIT 3 ON SVC 
5604* BIT HEX OOOOO0OF 677 KSTAT EQU 15 RFAD STATUS SVC 
000010 561+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 000010 678 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
009011 562+B49 EOU 17 1 ri * 000011 679 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000012 563+B50 EQU 18 2 2 * THESE BITS APE USED WITH THE 000012 680 CTRL Et 18 CONTROL SVC 
000013 564+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 681 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000014 565+B52 EQU 20 4 8 * BE ASSIGNED BY FACH PPOGRAMMER 000014 682 CICR EOU 20 CONNECT INTEPUPT CONTROL RLOCK SVC 
000015 566+B53 EQU 21 5 4 * 000015 683 HIO EQU 21 HALT ALL I/0 
000015 S67+B5S4 EQU 22 6 2 * 000016 684 RECSD EQU 22 KEQUEST USE OF DCP DISK SVC 
090017 568+B55 EOU 23 7 1 * 000017 685 RELSD EQU 23 RELEASF USE OF DCP DTSK SVC 
000018 569+B56 at 24 8 8 * 000018 686 HALT EOU 24 HALT SVC 
000019 570+B57 EQU 25 9 4 x 000019 687 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
OO001A 571+B58 EOU 26 10 2 *« OOOO1A 688 HTOE EQU 26 HEX TO ERCDIC SVC (STRING 
000018 572+B59 FQU 27 11 1 00001B 689 ATOH FOU 27 ASCII TO HEX SVC (STRING 
00001C 573+B60 EOU 28 12 8 * 00001C 690 HTOA EQU 28 HEX TO ASCII Svc (STRING 
00001D 574+B61 EOQU 29 13 m1 * 00001D 691 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
OOOO01E 575+B6b2 EOU 30 14 2 ry ON001E 692 ATOE FOU 30 ASCII TO EBCDIC SVC (STRING 
OOO001F 576+B63 EOU 31 15 1 * OO001F A93 READI EOU 31 READ DATA SETS FOR MDI/UTIL 
OO001R 577+CH EOU 30 14 2 CHARACTER SUPPLIED 090020 694 WRITTI Eu 32 WRITE DATA SETS FOR UTIL 
OOO0O1F 578+CMP EQU 31 15 1 COMPARE OPEPATION 696 SS SS SSSSL ESL SS*SSL SLE SLES LESS SLES SESSSSSSSSSLESSSSSSSL ESS SSPLS SEES SSE SSE SL SS SE FS | 
002816 0000 580+OPTN3 DC X'*0000! PROGRAM OPTION CONTROL WORD 3 697 * * 
581+* 698 * EQUATES USED BY TU'S AS CONSTANTS * 
582+* OO MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 699 * * 
583+* 1 ERFOR INTEFRUPT ER 9 CS AVAILABLE CSA TOO KR KK KK KK Ke KK KK KK HK ee ee 2 RK i i eK Ko ok KK ok kK KK KKK 
SB8u+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTEPRUPT ERP CE OOOO4E 701 PLUS EQU Cts PLUS CHAR 
585+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 000060 702 MINUS EQU ct-! MINUS CHAR 
5 86+* 000000 704 ZERO EOU 0 
587+* 4 EXPECTED EPP/ATTENT XE 12 TEST UNIT RESULTS VOID NG 000001 705 ONE EQU 1 
588+* 5 HARD ERROR FOUND HE 13. O10 CC ERROR TOCC 000002 706 TWO EQU 2 
589+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN 000003 707 THREE EQU 3 
590+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC FRROR INCC 900004 708 FOUR EOU 4 
591+%* BIT HEX 000005 709 FIVE EQU 5 
000020 5924M1 EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 710 STX EOU 6 
000021 593+ER EOU 33 1 4 ERROP PECEIVED ON INTERRUPT 000007 711 SEVEN EOQU 7 
| 000022 5944+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT | 000008 712 EIGHT EOQU 8 
| 000023 595+IN EQU 35 3 1 INTFRRUPT RFCEIVED CONTROL BIT | 000009 713 NINE FOU 9 
000024 596+XE EOU 36 4 8 EXPECTED ERROR PESPONSE OOOOOA 714 TEN EQU 10 
000025 SOT+HE EQU 37 5 4 HARD EPROR, 8 RETRIES 00000B 715 ELEVN EQU 11 11 
000026 5S984+$SLE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 00000C 716 TWELV EOQU 12 12 
000027 SO9+NT EOU 39 7 1 NO INTERRUPT EXPECTED FE 90000D 717 THRIN FOU 13 13 
000028 600+CS EQOU 40 8 8 CYCLE STATUS IN PROGRESS OOO000F 718 FIVIN EQU 15 15 
000029 6014+CSA EOU 44 9 4 CYCLE STEAL AVAILABLE 000010 719 SIXTN EQU 16 16 
OO002A 602+CE EOU 42 10 2 CYCLE STEAL STATUS INFRRRUPT EPROR 000020 720 THRY2 EOU 32 32 
0000 2B 603+ISBON FOU 43 11 1 ISB BITS ON (1-7 000040 721 SIXT4 EQU 64 64 
00002C 6044NG EQU Wy 12 8 TEST UNIT RESULTS NO GOOD 000080 722 ONE28 EQU 128 128 
00002D 605+IOCC EQU 45 13 mr OTO CC ERROR 000100 723 TWO56 FOU 256 256 
00002E 606#NOIN EQU 46 14 2 NO INTERRUPT 000400 724 ONEK EOQU 1024 1024 
00002F 607+INCC EQU 47- 15 1 INTERRUPT CC ERROR 000800 725 TWOK EOD 2048 2048 
608+* 000C00 726 THREK EQU 3072 3072 
609+* COMMON BUFFER FOR PRINTING DATA 001000 727 FOURK EQD 4096 4uO°6 ‘ 
610+* FFFFFF 729 M1 EQU -1 -1 
002818 0000 612+$TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 730 M2 FOU -2 -2 
00281A 0000 613+$1I0IN DC A (*-* T/O AND INTR CONDITION CODES FFFFFD 731 M3 EOU -3 -3 
00281C 0000 614+$ISB DC A (*-* R INTR STAIUS BYTE & DEV ADRS FFFFFC 732 M4 EQU - -4 
OO0281E 0000 615+LSTIO DC A (*-* ADRS OF LAST I/O + 4& BYTES TQ RR RK OR RRO ORI IO JI OI ROK IG tai ROK otk lok tai kk kok 
002820 0000 616+DEV1 DC A (*-* DEVICE DEPENDENT DATA 735 * * 
002822 0000 617+DEV2 DC A (*—* * 736 * THE FOLLOWING ARE EQUATES FOR BIT PISPLACEMENTS FROM THE * 
002824 0000 618+DEV3 DC A (*-* * 737 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
002826 0000 6194#DEV4 DC A (*-* * 738 * * 
002820 620+SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN 739 RK OR RIOR OR OOK ORK ROR RR RO OR io koi Omg RK lok aio fokok ak totaiakakakotok oko 
002828 621+DCBUF EOD * DCB BUFFER FOR LAST DCB USED 000000 740 RSO EQU 0 
002828 0000 6224+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 000001 741 BS1 FOU 1 
00282A 0000 623+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 742 BS2 EOU 2 
00282c¢ 0000 6244+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000003 743 BS3 FOU 3 
00282E 0000 625+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000004 744 BSY EOU 4 
902830 0000 626+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000005 745 BSA EOU 5 
002832 0000 627+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 746 BS EQU 6 
002834 0000 628+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 747 BS7 EQU 7 
002836 0000 629+#DCB8 DC A (*¥-* LAST DCB TABLE, BUFFER ADDRESS 000008 748 BS8 FOU 8 
630+* 000009 749 BSI EOU 9 
0028 38 631+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOOOA 750 BS10 EOQU 10 
002838 0000 632+CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00000B 751 BS11 FOU 11 
00283A 0000 6334CSTL2 DC A (*-* CYCLE STEAL WD 2, DEVICE DEPEND 00000C 752 BS12 EQU 12 
00283cC 0000 6344#CSTL3 DC 4 (*-* CYCLE STEAL WD 3, DEVICE DEPEND 00000D 753 BS13 EQOU 13 
00283E 0000 6354CSTLY DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND OOO00E 754 BS14 EQU 14 
002840 0000 636+CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OOO00F 755 BS15 EQOU 15 
002842 0000 6374+CSTLA DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 757 COPY 17835 O1DEC76 
002844 0000 638+CSTLT DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 758 17835 TUIT $ERRS$ 
002846 0000 6394CSTL8 DC A (*-— * CYCLE STEAL WD 8, DEVICE DEPEND TOD HK RK KKK KK KK KKK KKK KKK KKH RK HK KKK KKK KKK KKK KEEK EKKEK KK KKKKKEKOG PERT 6 ** 
640+* 760+* 
002848 0000 6414+$SUBN DC is bee LAST SUBROUTINE ADDRESS USED 761+* TEST UNIT 
00284A 00000000 6424+$DATA DC 2A (*-* OPTIONAL DATA 762+* 
OO284E 0021 6434+8TNTL DC X'00218 INTERRUPT LEVEL REQUESTED 763+* (QU12) EXERCISER FOR ACCESS CONTROL ADJUSTMENT 12/01/76 
002850 0000 6444+TURTN DC A (tt) TEST UNIT RETURN ADRS TO MDI 764+* 
002852 0O0B2 645+$DVID DC X¥"OOB2°* DEVICE TD 765+* PURPOSE 
002854 19D0 6464+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 166+* 
002856 0000 he DC A (#-*) IBIS CYLINDER ADDRESS hee FUNCTION: LOOP ON SERKS 
+ + * 
pee THIS TEST UNIT WILL PETURN TO MDI WITHOUT DOING ANY PROGRAM 16 9+* : PROGRAM INITIALIZES ATTACHMENT. 
650 +* FUNCTION. THE RESULTS THAT WERE SET OP IN THE RESULTS APEA ARE 7704+* é RECALIBRATE 
651+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 7714+* i DETFRMINE IF FORMAT IS GSD OR SDD 
652+* 772+* Z SEEKS (FWD) TO TRACK 300 (RD ID TO VERIFY TRACK 300 
002858 4020 2818 3c02 6534T3C02 MVWI X'3C02',S$TUID SET UP TEST UNIT ID 173+* i SEFKS (REV) TO TRACK 150 (RD ID TO VERIFY TRACK 300 
002852 5700 654+ BXS AR) RETURN TO MDI SUPVR 774+ : LOOP ON SEEK OPERATION BETWEEN TRACKS 150-300-150-300 ETC 
656 COPY OMEON 775+* i IF A SEEK "COMPLETE! DOES NOT OCCUR WITHIN 100-300 MSFC AFTER 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COFPP 1976 
12.35 eR GRR III III IO TOI GI IOI ICICI OI GIGI IOI IOI IC IOI CIC IOI I 002C50 OBFF 1350 MVBI X'FFt,R3 SET BUFFER TO F'S 
1236 * 002C52 4524 2AF4 1351 MVA SCTST,P5 SETUP FEAD SECTOR TD BUFFER ADP®S 
1237 * SUBROUTINE 002C56 4724 0006 1352 MVWI R7 SETUP BUFFER LENGTH 
1238 * QO02C5A 2BAC 1353 FFN P3 AF} INIT READ SECTOR ID BOUFFEP 
1239 * PURPOSE 002C5C 4020 2A3E 2AF4 1354 MVA sch T,RSDCB+ 14 DATA ADDR 
1240 * 002c62 5019 1355 J XIO 
1241 * LOAD WRITE SECTOR ID DATA BUFFEP FROM RD SEC ID BUFFER 1356 * 
1242 * 002C64 4020 2D98 2AA0 1357 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOF SVC CALL 
1243 * CALLING SEQUENCE OO2C6A 4020 2AAE 2AE6 1358 MVA WRSID,WKDCB+14 DATA ADDR 
1244 * 002C70 5012 1359 J XIO 
1245 * BAL LWSID,R6 1360 * 
1246 * 002C72 4020 2D98 2A20 1361 $WSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1247 * RETURN 002C78 4020 2A2E 2AE6 1362 MVA WRSID,WSDCB+14 DATA ADDP 
7248 * 002C7E 500B 1363 J XIO 
1249 * BXS (R 6) 002C80 4020 2D98 2A20 1364 SWSTS MVA WSDCB,IODCB SET UP CONTPOL BLOCK FOP SVC CALL 
1250 * 002C86 4020 2A2E 2AEE 1365 MVA WSIDT,WSDCB+14 DATA ADDP 
1257 FAO III IO ICI OI IGRI gO IGG GIG IORI Fok a aI I i ak 002c8C 5004 1366 J XIO 
1252 * 1367 * | 
1253 * Q0O2C8E 4020 2D98 2A00 1368 SDIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOP SVC CALL 
OO02BB6 4724 0005 1254 LWSID MVWI 5,R7 BYTE COUNT 002Cc94 5000 1369 J XIO 
OO2RBA 4324 2821 1255 NVA SCTID+1,R3 ADDR OF RD SECT ID DATA BUFFER 1370 XEQiT 
OO2BBE 4524 2AE6 1256 MVA  WRSID,R5 ADDR OF WR SECT ID DATA BUFFER 137.14 IOI I IOI OO IOI IIS Ia i i a tt 3 04 9 JL 76 ** 
0O02BC2 2BA4 1257 MVFN (Re re (R5) MOV DATA FROM PD TO WR BUFFER 1372+* 
002BC4 5600 toee rR BXS 6 RETURN TO CALLER re SUB-ROUTINE 
+ 
1261 * 1375+* EXECUTE INPUT AND OUTPUT COMMANDS 
1262 * EXECUTE INPUT & OUTPUT COMMANDS 1376+* 
1263 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1377+* PURPOSE 
1264 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 1378+* 
1265 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 1379+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
ee : SUPVR CALL. ee pape THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
5 + 
1268 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 1382+* 1. SAVE TEE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
1269 * . 1383+* THE I/O COMMAND. 
1270 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 1384+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
1271 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 1385+* ISSUED BY THIS SUBROUTINE. 
1272 * 1386+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THF 
1273 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1387+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
1274 * : 1388+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTEFRUPT 
1275, 4 BAL SRKEW, R6 READ SECTOR ID SKEWED 1389+* SINCE THE LAST EXPECTED INTEPPUPT. IF AN INTEPRUPT IS FOUND, 
1276 * . 1390+* MYSTERY INTERRUPT eto | CCNTPOL BIT IS SET. 
1277 * 2 BAL SWKST,R6 WRITE SECTOR ID SKEWED (TEST) 1391+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 
1278 * : 1392+* EXPECTED INTEPPUPT CONTROL BIT AND ISSUE THE ‘SvC  STAPT'. 
1279 * 3 BAL SRWST,P6 READ SECTOR ID SKEWED (TEST) 1393+* 6. WHEN THF SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 
1280 * ° 1394+* STARTS TO DETERMINE A LOST INTERRUPT. 
1281 * 4 BAL SRIDS,R6 RPEAD SECTOR ID (TEST) 1395+* 7. EXCEPT THE INTEPPUPT AND GATHEF INFORMATION TO DETERMINE IF IT 
1282 * . 1396+* WAS AN EFPOP OF OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
1283 * 5 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 1397+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
1284 * ° 1398+* 9. CHECK IF AN ERROP WAS EXPECTED AND IF TREPE WAS PETURN. 
1285 * 6 BAL SWSEC,R6 WRITE SECTOR ID 1299+* 10. CHECK IF THEPE WAS AN ERPOPR CONDITION, IF NOT RETUPN. 
1286 * ° 1400+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
1287 * 7 BAL SWSTS,R6 WRITE SECTOR ID (TEST 1401+* 12. CHECK IF A CYCLE STEAL OPEPATION WAS IN PROGRESS THAT WAS 
1288 * ° 1402+* ISSUED RY THIS SUBPOUTINE. 
1289 * 8 BAL SDIAG,R6 DIAGNOSTIC 1403+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
1290 * ° 14O4+* CYCLE STEAL STATUS COMMAND. CHECK FOP ANY OTHER BIT BEING ON, 
564 : 9 BAL XIOCS,R6 CYCLE STEAL STATUS Lene! COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
‘ + 
oe : 10 =BAL SSEEK,R6 SEEK vapese CALLING SEQUENCE 
: + 
AOE : 11. BAL SPECL, R6 RECALIBPATE re paeat! THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
. + 
1297 * 12 BAL SRDID,P6 READ SECTOR ID 1411+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
1298 * ° 1412+* --> BAL XIO1 MOD PARM PRELOADED IN 'IOMOp! 
1299 -*®- 13° BAL SRD,FP6 PEAD 1413+* --> BAL XIOCS,R6 OF XEQ STAPT CYCLE STEAL STATUS, MOD=F 
1300 * : 1414+* ~-> BAL XIOCS—-4 ,F6 AUTO CS STATUS jee retana OTHEP XIO 
ee - 14° BAL SRDVY,F6 PEAD VEPRTFY Vee ° AND DOES NOT POST INTERRUPT STATUS) 
. + 
1303 * 15 BAL SWRT,R6 WRITE 1417+* RETURN CONTEKOL 
1304 * 1418+* 
1305 * 1419+ BXS P6,2) PETUPN TO USER NO EPROR 
OO2BC6 4020 2D98 2A50 1306 SSEEK MVA SKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 1420+* OR B R6) * RETURN AND FRETFY ON EPROR 
002BCC 5064 1307 J XIO 14.2.7 I IO III IOC GIGI IG IG i ak 
1308 * 002C96 CB25 2D9A 1423+xIo MVWZ ICMOD,F3 SET MOF OF O FOR CYCLE STEAL OP 
OO2BCE 4020 2D98 2A10 1309 SRECL MVA CLDCB,IODCB SET UP PLOCK FOR SVC CALL O0OO02C9A 500A 1424+ J XIO1 CS I/O'S ARE NOT RETPIED 
002BD4 5060 1310 J XIOo 1425+* 
1311 * 0Q2C9C 4CAA 1426+ TBTR (ea fcs PESET CS STATUS INTER EPROP INDICAT. 
OO2BD6 4020 2D98 2A30 1312 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL OO2C9E 4C68 1427+ TBTS PH,CS SET "CYCLE STEAL STATUS! IN PROGRESS 
QO2BDC OBFF 1313 MVBI X'FF',R3 SET BUFFER TO F'S 0O02CAO0 4020 2D98 2A60 1428+XIOCS MVA CSDCE, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO2BDE 4524 2820 1314 MVA SCTID,R5 SETUP READ SECTOR ID BUFFEP ADRS O0O02CA6 4020 2D9A OOOF 1429+ MVWI X'O00f, TOMOD SET CYCLE STEAL MODIFIER 
OO2BE2 4724 0006 1315 MVWI R7 SETUP BUFFER LENGTH OO2CAC 4C28 1430+ TBT (R4,CS) IS_CS IN PROGRESS, EPPOP CONDITION 
QO2BE6 2BAC 1316 FFN R3 AE?) INIT PERD SECTOFP ID BUFFER OO2ZCAE 1213 1431+ JON X10 * YES, BYPASS SAVING 1/0 ADRS 
OO2BE8 4020 2A3E 2820 1317 MVA scf D,PSDCB+14 DATA ADDR O0O02CBO 6FOD 281E 1432+XIO1 MVW R6,LSTIO SAVE TAP FOP RETPY IF PEQUESTED 
QOO2REE 5053 1318 J xTO OO02CB4Y 4324 2828 1433+ MVA DCBUF, R3 SET UP TO ADPS TO MOVE DCB TAFPLE 
1319 * 0O2CB8 6D08 2D98 1434+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 
OO2BFO OBFF 1320 $RD MVBI X'FF!',R3 SETRD BUFFER TO ALL FS 0O02CBC OQOF10 1435+ MVBI 16,P7 * THE NUMBEP OF MOVES 
QO2BF2 6D08 2A9E 1321 MVW RDDCB+14,R5 SET UP READ BUFFER ADPS OO2CBE 2D64 1436+ MVFN (R5) (F3) MOVE 1 STATUS WORD AND ADJUST 
OO2BF6 4724 0100 1322 MVWT X'0100', £7 SET UP _BUFFEP LENGTH 002CCO OBFF 1437+ MVEI 255,£3 CLEAR CYCLE STATUS BUFFER 
QOO2BFA 2BAC 1323 FFN R3 se CLEAR READ BUFFER 002CC2 4524 2838 143 8+ MVA CSBOF,P5 * TO ALL ONES * 
OO2BFC 4020 2D98 2A90 1324 SRDS MVA RDp B, TODCB SET UP BLOCK FOR SVC CALL 002CC6 OF10 1439+ MVBI 16,P7 * 
002C02 5049 1325 J XIO 002CCB 2BAC 1440+ FFN R3 spay * 
1326 * OO2CCA 4020 281A 0708 1441+ MVWI =x'6708 , SIOIN OVERLAY OLD CONDITION CODES 
002CO4 4020 2D98 2A80 1327 SRDVY MVA VRDCB, ITODCB SET UP CONTROL BLOCK FOR SVC CALL 002CDO CB25 281C 1442+ MVWZ SISB,F3 ZEPO OUT OLD ISB VALUE 
OO2COA 5045 1328 J xIo 1443+* 
1329 * OO2CD4 4CAI 1444+ TETR R4,ER PRESET ANY EPROP BEFOPE I/0 COMMAND 
O002COC 4020 2D98 2A70 1330 SWRT MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL Q02CD6 4CA3 1445+XIO2 TBTP RG,IN CLEAR INTEPPUPT RECEIVED CNTIL BIT 
002Cc12 5041 1331 J XTO 002CD8 4724 2D94 1446+ MVA OBLK,R7 SET UP CONTROL BLOCK FOP SUPVP 
1332 * Q©O2CDC 4CA6 1447+ TRTK R4, SLE) KESET LEVEL EPFOR INDICATOR 
002C14 4020 2D98 2AB0 1333 SRKAW MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2CDE 4C62 T448+ TBS P4 ,XTI) SET EXPECTED INTR CONTROL BIT 
Q0O2C1A OBFF 1334 MVBI X'FF!,R3 SET BUFFER TO F'S OO2CEO 600A 1449+ SVC TART CALL SUPVP FOR I/O COMMAND 
002C1C 4524 2820 1335 MVA SCTID,R5 SETUP READ SECTOR ID BUFFEP ADPFS 1450+* 
002C20 4724 0006 1336 MVWI 6,R7 SETUP BUFFER LENGTH QOO2CE2 4CA7 1451+ TBTFP (rer oy? IS AN INTR EXPECTED 
Q002C24 2BAC 1337 FFN p3 ano} INIT READ SECTOP ID BUFFEP OO2CE4 6ACO 0002 1452+ BN P6,2) * NO, PETURN TO USER 
002C26 4020 2ABE 2820 1338 MVA sch D, RKDCB+14 DATA ADDP 1453+ 
002C2C 5034 te n J XTO tenes THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
R5+ 
O002C2E 4020 2D98 2AA0 1341 SWKST MVA WKDCB, IODCB SET UP CONTROL BLOCK FOP SVC CALL 0Q2CE8 0ODO0O0 1456+ MVBI X'OO!,R5 SET UP WORK REG FOR 'LOST INTF! 
002C34 4020 2AAE 2AEE 1342 MVA WSIDT, WKDCB+t+ 14 DATA ADDR OO2CEA 4CA3 1457+XIO8 TBTR R4,IN) HAS INTEFRUPT BEEN RECEIVED 
002C3A 502D 1343 J 0 OO2ZCEC 1238 14584 JON tock * YES, CHECK IF ALL WAS SATISFACTORY 
1344 * QO2CEE 6002 1459+ svc =OLE ALLOW ANOTHEP PROGRAM A CHANCE TO FUN 
002C3C 4020 2D98 2AB0 1345 S$RWST MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1460 +* SUPVR WILL RETURN HERE 
Q002C42 4020 2ABE 2AF4 1346 MVA SCTST ,PKDCB+ 14 DATA ADDP 902CrO 7DA1 0001 1461+ AWT 1,P5 ADVANCE TIME OUT COUNT 
002C48 5026 1347 J XIO OO2CF4 18FA 1462+ JNZ xf08 BCH IF TIME OUT NOT PEACHED 
1348 * QOO2CF6 4C61 T4H63+ TBTS R4, ER) SET ON ERROR CONTROL BIT 
OO2C4A 4020 2D98 2A30 1349 SRIDS MVA RSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2ZCF& 68D2 0000 1464+ B P6{* FRP "NO INTEPPUPT! 
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10.6 64 OG OO GOGO tog iok go io ici iciotaioiakictok 0) 3 F BB 7 6 40k 
T467+* 
1468+* SUBROUTINE 
1469+* 
14 70+% 1/O EXECUTE ERROR HANDLING ROUTINE 
+ 
1472+* PURPOSE 
14734% 
1U744% THIS ROUTINE WIL ECT INFORMATION TO HELP DETERMINE THE 
1475+% PROBLEM THAT WAS WHEN THE 1/0 COMMAND WAS ISSUED BY THE 
14 76+% SUPERVISOP AND I NOT ACCEPTE 
+ 
1478+ CALLING SEQUENCE 
19+ 
1480 + SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
+ 
1482+* RETURN CONTROL 
1483+* 
14ghes B (R6) * RETUPN TO USERS ERROR HANDLER 
+ 
ESP te ET ELE LS ST STP SST SS SSE LE SESE SETS ES STS SESS SES ESS TP SS SS TSE SESS TSS ES StS SSS 
1487+* 
1488+* CC O= DEVICE NOT ATTACHED 
1489+* FOR 1= DEVICE BUSY 
1490+* T/0 2= DEVICE BUSY AFTER RESET 
1491+% 3= COMMAND REJECT 
1492+% W= INTERVENTION REQUIRED 
1493+* 5= INTERFACE DATA CHECK 
14944+* 6= CONTROLLER BUSY 
149544 7= T/O COMMAND EXCEPTED 
+ 
O02CFC 706E 14974+XIOER DC X'706E! COPY STATUS ANY LEVEL INTO R3 
OO2CFE 336A 1498+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
002D00 C328 1499+ MVB  R3.$I0IN * PUT IN LOG OUT AREA 
002D04 68D2 1500+ B (R6) * RETURN TO USER ERROR HANDLER 
VS OD 4K KK KK He He HE Ree a KK he eo a a 2 i i i ae te a oe oi a 2c ok 2 ok ie ok ok ok ok ok ok kok KK TOA PR 76 *X 
1503+* TL 
1504+* SUB-ROUTINE IL 
1505+ TL 
1506+* ERROR INTERPUPT RUNS ON INTERRUPT LEVEL 'SINTLY iat 
+ 
1508+* PURPOSE TL 
1509+* TL 
1510+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN EPROR IL 
1511+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
1512+% EXPECTED CODE. IL 
1513+* pee 
1514+* CALLING SEQUENCE IL 
1515+* Ti 
1516+ SUPVR WILL ENTER WHEN AN ERROF OCCURS ON AN I/0 INTERRUPT IL 
+ i. 
1518+* RETURN CONTROL IL 
151944 iT 
152044 SVC EXIT RETURN TO USER VIA SUPVR Tt 
+ 
15D DH RK OK He eK oo 2 2 ke ke oo fe of oko ko kok ok ok ok ok ok ok ke tok ek ok ok kk ek ek OK KOK TT 
1523+* 
15244* CC O= CONTROLLER END ISB O= ADD STATUS L 
15254* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJFCT IL 
1526+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH TL 
1527+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK TL 
1528+* 4= ATTENTION INTERRUPT 4W= STG DATA CK TL 
15294+* 5= ATTENTION / PROGRAM CNTL INTR S5= INV STG ADRS TL 
1530+* 6= ATTENTION / FXCEPTION INTR 6= PPOTRCT CK IL 
153144 7= ATTENTION 7 DEVICE END INTR J= I-FACE DATA TE 
002D08 7068 1533+INTER DC X'706E! COPY STATUS ANY LEVEL INTO P3 L 
OO2D0A 336A 1534+ SRL  13,B3 POSITION INDICATORS IN R3 Tr 
002D0C 4424 2812 1535+ EVA OPTN1,P4 SET UP BASE ADPS IL 
002D10 4c28 1536+ TET (Rd cS) IS CS IN PROGRESS TL 
002D12 1006 1537+ JOFF INTES TL 
002D14 4C6A 1538+ TBTS (P4 CE) TUPH ON CYCLE STFAL INTER EPPOR TL 
002D16 6FOD 2846 1539+ MVW R7,CSTL8 SAVE CS ERR ISB VALUE, BITS 0-7 TT 
002D1A C328 2847 1540+ MVE = R3,CSTLE+1 * AND THE COND CODE IL 
002D1E 500A 1541+ J INP 1 TL 
002D20 4c24 1542+INTES TBT (Ra XE) TEST EXPECTED ATTEN / EPROR IND TL 
002D22 1002 1543+ JOFF Intét BCH IF NOT EXPECTED IL 
002D24 F304 1544+ CBI 4,pP3 IS THIS AN "ATTENTION! INTP rr 
002D26 1006 1545+ JE INTE * YES, BCH TO END INTP SEQUENCE IL 
002D28 4cé61 1546+INTET TBTS (Ri E SET ERROR ON I/O COMMAND CNTL BIT IL 
002D2a 5004 15474 J NTE 1 TL 
1548+* THE ERROR INTERRUPT USES THE SAME IL 
1549+% ENDING SFOUENCE AS THE NORMAL INTR IL 
VO 514 RK KR KK RK KR KKK oR kk Kk kok Sk ok kkk ok kk kkk tok ok kok kK KKK PLADRTETL 
1552+* TL 
1553+* SOUBROUTINE IL 
1554+* BNA BF 
15b5+* OKAY INTERFUPT RUNS ON INTERRUPT LEVEL *SINTL! IL 
A + 
1557+* PURPOSE TL 
155 9+* TT 
190944 TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
+ 
1561+#* CALLING SEQUENCE TL 
1562+* TL 
1563+* SUPERVISOR WILL ENTER HERE IF INTPR CC TS AS PEQUESI ED IL 
1564+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
1565+* AFTER THE SPECIAL PAPT HAS BFEN COMPLETED AND THE ane 
1566+% COMMON SECTION IS HANDLED HERE. Tt 
1567+4+* TL 
1568+* PETURN CONTROL TL 
156 9+* TL 
157044 SVC. _- EXIT RETURN TO USER VIA SUPVP TL 
+ 
Poteet ee ee Se ee hn eS ee eer eo hee eer ee 
002D2C 706E 1573+INTOK DC X'706E! COPY STATUS ANY LEVEL INTO R3 lee 
OO2D2E 336A 1574+ SRL  13,F3 POSITION INDICATORS IN P3 IL 
002D30 4424 2812 1575+ MVA  OFfN1,R4 SET UP BASE ADRS TL 
002D34 4C63 1576+INTR1 TBTS (e441 SET | INTERRUPT RECEIVED IL 
092p36 4C28 1577+ TRY RU'C IS "CS IN PPOGRESS' ON IL 
002D38 1204 1578+ JON iInTR?2 * YES, BCH AROUND UPDATE TL 
002D38 C328 281B 1579+ MVB R3,$IOIN+1 SAVE INTERRUPTING CC CODE TL 
002D3E 6FOD 281C 1580+ MVW  P7,$I SAVE INTP STATUS AND DFV ADRS TL 
002D42 15Q14INTP2 FOU * TL 
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1582+* CPCL PS CURRENT LEVEL COPIED BY DCP Ti 
1583+ SLL 4 RS POSITION INTF LEVEL AND PUT TL 
1584+ 7BI * IN 'T! BIT IL 
1585+ CW S{NeL, P5 IS THIS THE CORPECT INTR LEVEL IL 
15864 JE INTR3’ * YES, GO EXIT THIS LEVEL TL 
1587+ TRTS (R4,$LE) SET IfTR LEVEL ERROR CONTROL BIT IL 
1588+ TBTS RY, ER SET ERROR ON I/O COMMAND CNTL BIT TL 
1589+INTR3 TBTR XI WAS INTERRUPT EXPECTED IL 
1590+ JON fake * YES, FXTT OFF THIS TNTR LEVEL IL 
1591+ TBTS ia MT) * NO, SET MYSTEPY INTR CONTROL BIT IL 
1592+ CBI ATTENTION INTERRUPT? IL 
1593+ JE YES TL 
15944 © TBTS (et, RX) ERPROR,UNEXPECTED INTEPRUPT TT 
15954INTRX SVC EXIT THIS LEVFL VIA SUPVP TO PGH ITIL 
V5 OT HK HK HH HK He HH He HM He He eK He He He HH He He He He HH HH HH KC HH He HH EH he ee ee he *XQO3FEB76** 
1598+% 
15994 THIS IS THE CONTINUATION OF FXECUTF I/O AFTER THE INTEPPUPT 
1600+* HAS BEEN SERVICED. THE EXERCISEP FINDS AN INTERRUPT HAS BEEN 
160 14% RECEIVED AND BRANCHES HEPE TO CHECK FOR ANY EPROP CONDITIONS. 
+ 
1603+* 
16044+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
1605+ BN R6, * YES, FXIT THIS ROUTINE 
1606+ TBTR (P4,CcS) WAS AOTO CS IN PROGPESS 
1607+ JOFF YXIOCcY * NO, CONTINUE CHECKING 
1608+ TBT RY ,CE) TS CS IN AN ERR CONDITION 
1609+ JOFF xtToco * NO, BCH 
1610+ B R6) * cs FRROF 
16114#XIOCO TBTS (R4,CSA) TURN ON CS STATS AVAIL FLAG 
1612+ BXS 672) GO TO USER 
1613+XIOCV TBT RG, ER) WAS ERROR INTP CONTPOL BIT ON 
11s JOFF xXIOCX * NO, EXIT THIS ROUTINE 
+ 
1616+ MVB SIOIN+1, R5 GET LAST INTR CC CODE 
1617+ CBI R5 IS THIS CC=2 
1618+ BNE fish, * * NO, BCH TO ERROR HANDLER 
1619+XIOCO MVB Get LAST ISB DATA BYTE AND IF CS 
1620+ BN XIOCS * AVAILABLE, GO AND GET IT 
1621+ B (R6 ERROR 
1622+XIOCX MVWZ OFT 3 R3 CLEAR OUT OPTION 3 CNTL BITS 
1623+ BXS  (R6,2) PETUPN TO USEP VIA PEG fA 
+ 
1625+* T/O PARAMETER LIST 
1626+* 
1627+IOBLK DC A (DEVADD) ADRS OF DEVICE ADPS 
1628+ DC A (XTOER) ERROR ROUTINE ADRS 
1629+IODCB DC A DCB ADPS OR LEVEL & INTR 
1630+#TOMOD DC A ae MODIFTER 
1631+ DC A (k-* ADRS OF LAST SVC CALL 
1¢32+TORSP DC A (*-% SFCOND WORD OF LAST IDCB 
+x 
1o3u+* INTEPRPUPT CONTROL BLOCK FOR I/O COMMANDS 
+ 
16364+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
1637+ DC A (INTOK INTEPRUPT OK PETUPN ADPS 
1638+ DC A (INTER INTERRUPT ERROP ADPS 
16394+INTCC DC X"0003! INTERRUPT CODE EXPECTED 
161 HR HR RH HH HH I RK I kk ok kk dk dk ok kok kok kk aK TT MAY 76 ** 
1642+* 
16434+* SUBROUTINE 
16444% 
164544 CONNECT INTERRUPT CONTPOL BLOCK & PREPARE DEVICE 
+ 
1647+* PURPOSE 
1648+% 
16494* TO CONNECT THE INTER NTPOL BLOCK TO THIS DEVICE AND 
1650+ PREEFARE ON THE DESIR RRUPT LEVEL AND TO ALLOW THE DEVICF 
1651+% TO INTEPRUPT. 
1652+% 
1653+* CALLING SEQUENCE 
1654+* 
1eb5+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
+ 
1657+* --> BAL  $CONC,R6 CLEAP DEV DEP STG AND CONNECT I/0 BLK 
1658+% --> BAL  $CONP.R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
+ 
1660+#* RETURN CONTPOL 
1661+* 
16624% BXS (Be 2) RETURN TO USER VIA REG 6 IF OKAY 
1663+% OP B R6J * IF THE DEVICE COULD NOT BE CONNECTED 
+ 
tite te tet eee SSS STS SSS STS SST SS FSS TT SESS SS ES SS SCL ES SSS SST SCS TS CSS SL SS CCL SS eS S S| 
16664$CONC MVBI 6,P7 NUMBER OF BYTE TO CLEAR 
1667+ MVBI 0,R3 * AND THE DATA TO USE 
1668+ MVA  DEV1,R5 * ALONG WITH THE AD®S TO USE 
1669+ FFN P3 (5) * 
1670+ MVWZ OPTN3,R3 CLEAP OLD CONTPOLS FOP NEW ROUTINE 
1671+ MVA  INTBL,R7 SET P7 TO CONTPOL BLOCK AND 
1672+ SVC CICR * CONNECT IT TO THIS DEVICE 
1673+, BN (R6) * FRPOR PETURN TO USEP 
+ 
1675+$CONP MVW S$INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
1676+ MVA  TOBLK-P7 SFT E7 TO CONTROL BLOCK TO PREPAPE 
16774 MVWI X'0708',SIOIN INITIALIZE CONDITION CODE STOPAGE 
1678+ MVWZ $ISB,R3 * AND CLEAR OLD ISP VALUE 
1679+ MVW  R6,L8TTO SET UP ADDPESS THAT STARTED LAST I/0 
1680+ SVC PREP * AND CALL ON SUPVEP 
1681+ (R6,2) RETUFN TO USER 
16.83 4 OG Gioia iooiodoioickiotek@ € A DR 7 6 aor 
16 844% 
1685+* SUBROUTINE 
1686+* 
Jog 74s DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG EPPORS 
+ 
1689+* PURPOSE 
1690+* 
16914+% DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
1692+* SET THE "NO GOOD' CONTPOL BIT, THEN LOG THE DATA THAT HAS 
1o93+% BEEN FOUND TO HELP THE OPEPATOP DEFINE THE FPPOP CONDITION. 
+ 
1695+* CALLING SEQUENCE 
16964% 
1597+% THIS SUBROUTINE HAS THF FOLLOWING ENTRIES: 
+ 
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1699+* --> B SEPPS SET 'NG' BIT AND CONVERT DATA TO LOG DECLARED NAME ATTRIBUTES AND REFERENCES 
17008% --> B SCONX PETURN TO MDI SUPERVISOP TO TEST STS 
+ 0 -PO. ABSOLUTE. HEX VALUE(00000000 
1702+* RETURN CONTROL 801 802 831 £45 856 857 878 879 1222 
17034+* 1223 1224 1225 1229 1230 1231 £1232 
1704+% B TURTN* RETURN TO MDI 0 -R1. ABSOLUTE. HEX VALUE (00000001) 
1705+* OR B (26) * IF THE DEVICE COULD NOT BE CONNECTED 1714 1717 1720 1723 
1706+* eR2< ABSOLUTE, HEX VALUE (00000002) 
\AIWE ESTEE SSS TSS TS SE SESS SS TSS SSS SS SS SS SSS CS CSCC CS SCC SSCS SCS SCS TSS SO SSL CLS CL SS 2 2 2 1719 1720 
O2DDC 4020 1818 8000 1708+$ERR$S MVWI X'8000', TUSTATUS SET ON "NO GOOD! STATUS BIT 0 Rae ABSOLUTE. HEX VALUE (00000003) 
O2DE2 4724 2FU6 1709+ MVA HEBLK,R? GFT ADRS OF CONTROI BLOCK 1170 1174 1176 1385 1257 1313 1316 1320 1323 
O2DE6 601A 1710+ SVC HTOE CONVERT HEX TO EBC VIS DCP 1334 1337 1350 1353 1423 1433 1436 1437 «1440 
O2DF8 0D03 17114+SERNT MVBI 3,R5 W42 1498 1499 1534 1540 1544 1574 1579 1592 
O2DEA 4324 181A 1712+ MVA TOHWORK,P3 SET UP BUFFEP STORAGE 1622 1667 1669 1670 1678 1712 #1713 «1717 «21729 
O2DEE 6BOD 2F3E 1713+ MVW P3,BUFbY 0 RU. ABSOLUTE. HFX VALUE(00000004) 
O2DF2 4124 2E6E 17144 MVA LINE1,R1 7197 820 822 824 ° 828 833 837 839 853 
O2DF6 OFOY4 1715+ MVBI 4,27 858 862 86u 875 880 891 892 893 894 
O2DF8 OF08 1716+ MVBT BRE 902 911 915 916 1426 1427 1430 1444 1445 
O2DFA 2B24 1717+MVBUF MVFN ( 3). (R1) 1447 1448 1451 1457 1463 1535 1536 1538 1542 
O2DFC OFOY4 1718+ MVBI 4)P 1546 1575 1576 1577 1587 1588 1589 1591 1594 
O2DFE OA4O 17194 MVBI xX!'4O',R2 1604 1606 1608 1611 1613 
02E00 C258 1720+ MVB R2- (Ri) + 0 ~P5. ABSOLUTE. HEX VALUE (90000005) 
O2EQ02 EEFB 1721+ JCT MVBUF,R6 1171 1175 1176 1256 1257 1314 1316 1321 £1323 
O2EO04 OFO8 1722+ MVBI 8,R6 1335 1337 1351 1353 1434 1436 1438 1440 1456 
02F06 7921 002C 1723+ AWT 44,R1 1461 1583 1584 1585 1616 1617 1619 1668 1669 
BeeeA BOE 1a02 piro 4618 ogee So rnee ooamae Wt dues 
-R6. ABSOLUTE. HEX VALUE (00000006 
02E12 4020 19B8 2F44 1726+ MVA FAKETU ,ODCADD1 : Re 798 . 813 S17 B19 829 835 850 854 860 
02E18 4020 19BA 2F40 1727+ MVA DC2PT ,@DCADD2 876 890 896 1177 1178 1217 #1258 1432 1452 
O2E1E 402c 19c4 0080 1728+ OWI BITO0 80,SUPSTAT 1464 1500 1605 1610 1612 1618 1621 1623 1673 
O2E24 4324 2818 1729+ MVA $TUID,R3 SET UP BUFFER STORAGE 1679 1681 1716 1721 1722 
O02E28 6F13 18BA ee BAL TUMSG WTR*,P7 GO TO MESSAGE WRITEP 0 RT: ABSOLUTE. HEX VALUE (90000007) 
+ 654 795 811 927 929 932 1169 1173 1254 
02E2C 1732+$CONX Bou * 1315 1322 1336 1352 1435 1439 1446 1539 1580 
02E2C C720 19D0 1733+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 1666 1671 1676 1709 1715 1718 #1730 = «1733 
02E30 6013 1734+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 1665 $CONC ADDRESS. HEX LOCATION(00002DA8) IN CSECT (17815 ) LENGTH (2) 
02E32 6812 2850 1735+ B TURTN* RETURN TO MDI SUPERVISOR 7198 850 
1736+* 1732 SCONX ADDRESS. HEX LOCATION(O0002E2C) IN CSECT(1I7815 ) LENGTH (1) 
02E36 0007 1737+BEGIN DC a icoea NOMBEPR OF LINES TO PRINT 883 933 
02E38 0008 1738+ DC A(0008 LINE LENGTH = 8 CHAR 1708 $ERRS ADDRESS. HEX LOCATION(O00002DDC) IN CSECT (17815 LENGTH (6) 
O2E3A 5C5C4U0C1IC2D6D9E3 1739+ DC Cf** ABORT! 7199 814 818 821 825 30 836 851 855 
O2F42 0028 1740+ DC A (0040) LINE LENGTH = 40 CHAR 861 877 897 
O2E44 EZE4COCYYOCOIDECID 1741+ DC C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEVY4 ! F 43 SINTL ADDRESS. HEX LOCATION(OO00O284E) IN CSECT (17815 ) LENGTH (2) 
OSE6E 10404040404040404 1743S LINEA De econ) et acne an 613 $ "RDB oo aEy LOCATION(0000281A) IN CSECT (I7815 LENGTH (2 
SHE OM Besnauocucscar THHSt BE ENO ncur cua ocou SEES ERS Eren goEE™ sin stan Abed? ae! /Scat66codSode 1) mu cancrcx7e15) uEnaEnca 
BEC) 9028 wuonouonouoa 1etSturwen BE  Afo040) LINE LENGTH = 40 cling TEL MRLAE LALA | : | . 
+ $ a tH V > (000000 
SHEEE B8eScocuuacsnzsor Ata BE AIB8EB cs > csa conn FAME HEMET tOSCUM os sa “ae in paras AN. 5 ee 
O2F14 0028 1750+ DC A (0040) LINE LENGTH = 40 CHAR ie 835 aera 896 ( ) ( ) aay 
O2F16 404040404 04040404 172 \+LINE3 DC c! : 1309 $RECL ADDRESS. HEX LOCATION(OOOO2BCE) IN CSECT (17815 ) LENGTH (6) 
02F3E 0000 1753+BUFPT DC A (*-* 30 ADDRESS. HEX LOCATION (00002BC6) IN CSECT (17815 LENGTH (6 
O2F40 2E36 17544+DC2PT DC a (BEGIN) 00 SEER aaa. 829 854 tron ( ) oe 
O2F42 0101 17554+FIXTU D X¥'0101! 612 $TUID ADDRESS. HEX LOCATION(00002818) IN CSECT (17815 ) LENGTH (2) 
O2F44 0101 1756+FAKETU pc xXx'0101' 653 796 1729 1763 
hone deea eo aneeee zed ace 105 @DCADD1 jBRDFESS. HEX LOCATION(000019B8) IN CSECT(I7815 ) LENGTH (1) 
1759+% ESS. LO 000019 IN CSECT (I7815 LENGTH (1 
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